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:jc 
>c 
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DC 
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!D^< 
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/122B 
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NEXT STM'JT WORD 
LEFT PARENTHESIS CONSTANT 
8R IF NUT LEFT PaRENTHESI 
SE" SW6 TU T CONDITION 
RR TO CONVERT OPERATOR 



9 

S_ 

3R TO CONVERT OPERA 
NEXT STMNT WORD 
RIGHT PARfcNTHESIG 
BR IF NUT RIGHT "* 
RESET PHASING 
RESET A*F NAME TRL PUT 
SE" AbF NAME TRL 
-'ERATOK !.0 c 
TABLE 



CONSTANT 

PAREN T HESI 

SWITCH 



3W 
3W 
COD 



C H r C K 
SCAN-FORCING 
...... . AUDRESS 

INiTUHZfc COUNTER 
MDX INSTRUCTION 
INITIALIZE ODD 
OPERATOR 
RR IF OUD 
MDX INS! RUCTION 
INITIALIZE EVEN 
INiTlALlZfc COUNTER 
TABLE ENTHY 
EXTRACT OPERATOR 
COMPARE WITH OPERATOR 
8R IF OPERATOR FOUND 
MDX + OH m 1 MODIFIABLE 
DECK COUNTER 
BR TO CONTINUE SEARCH 
TABLE ENTRY 

RIGHT JUSTIFY FORCING CODE 
REPLACE OPERATOR 
BR TO MUVE STM f, T POINTER 
CONVERT UPkRA T ORS 
NOP 
COLON 
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/ 

QUOT 

NOP 
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INCH 

DECK 
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DECI 
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HE INDICATOR 
R TEMPORARY 

CONSTANT 
IFIER 

tract mask 

SIGN AND CARRY 
OR LEGAL NAME 
F LEGAL CONSTAN 
ULATOR 
ZERO 

ME INDICATOR 
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ASF NT, 2 
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SECOND WORD OF 2-WORD NAME 
FIRST HALF OF NAME 
FIRST HALF OF NAME TEMP 
SECOND haI„F OF NAME 
BR IF ONE WORD NAME 

second m aif nr name tem^ 

SET TwO-WQRD NAM" SWITCH 

NEXT STUNT WORD 

8R IF NOT NAME WORD 

INOfcX RtG 3 s 7 

SET UP tRKOR NO. 7 
TATEMENT'WJTH ERROR 

STMNT IU WORD ADDRESS 

STMNT IU WORD 

EXTRACT'STMNT WOOD COUNT 

RIGHT JUSTIFY 

ADDK OF STMNT ID WORD 

ADDK OF NbXT STMNT ID WORD 

INDEX RtG 2 3 NEXT STMNT I 

END OF STRING ADDRESS 

ADDK QF~NfcXT STMNT ID WORD 

ADDH OF NbXT INSTRUCTION 

INDEX RtG 3=RANGE or CLOSE 

NO, OF wnKDS TO HOVE 

STMNT IU WORD 

EXTRACT "LOW RIT 

ERROR IUFNTIFIER 

STMNT IU WORD 

REVERSE STMNT NUMBER IN'JR 

0R IF TIT 15 ON 

STMNT IU WORD ADDRESS 

INCH STMNT ID WORD 

INCH STMNT POINTER 

ERROR NUMBER 

ERROR NU. INTO S T MNT 

NEXT WOKO TO MOVE 

CLOSE Ul- STRING 

INCH ADUR TO MOVE FROM 

INCH ADU" TO MOVE TO 

DECH MOVE WORD COUNT 

BR TO CONTINUE CLOSING 

ADJUST 10 MAKE NEW END OF 

STRING ADDRESS, 

BR TO SCAN NEXT STMNT 
JN ASF TARLE 

PUT NAMt SWITCH 

BR TO CHECK FOR NAME IN TB 

TWO»WORU NAME 

PUT NaME JN ASF TA9LE 

check fur duplicate stm\|t 
function parameters. 

inch nf^t table entry aodr 

MINUS 3 

NEXT TAtfLfc ADDR 
3R IF LtSS THAN i5 NAMES 
SET UP tRROR 23 
BR TO SIOHE ERROR NUMBER 
' NAMfc JN"aSF TABL n 
CHECK NAMfc S W ITCH 
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48^ 
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10 

T>2') 
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-D 
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JTO 

LD 

OR 
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LD 
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nsc 

LD 
JR 

JTO 
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!1DX 

LD 

J 
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AND 

OSC 

LD 
OR A 

I'SC 
LD 

nsc 
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,TX 
3TX 
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oc 

>c 
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>C 

JC 

oc 

'C 

oc 

o S j 

oc 
>c 

>c 

oc 

>C 
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iasft 

0V15 
C\/16 
WQRD2 



WQR02 
I NO 

OQ400 

HP 
CHECK FO 

I OR 01 

u CV17**Z 

HI 
L CV17,-Z 

iND 

O40 

iND 

PJT STMM 
L OTOOK 
L EXTRA 

1 - 

CHECK FJ 
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LPAR 
L CV5.Z 
CHK F OR 
3 H 
MK 
L 0V19*Z 
! DSV1 

-1 _ 
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1,0 3^9 
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/OOlD 



3R to chk fq;< INTEGER 'MME 

CHK FOR'OAME ALREADY IN TB 



SECOND 
REMOVfc 



WO OF STMN 
M8N BIT 



T NAME 



restoke second word of nam 
add staiehent function 
parameter to the symbol 
table iu word temporary 
integer name 
first wurd of name 
right justify first cha^ 
low alpha limit constant 
br if alpha below i 

HIGH ALHMA LIMIT CONSTANT 

3R IF ALPHA ABOVE N 

SYMBOL f'BL 10 WORD TEMP 

ADD INTEGER INDR 

RESTORE'SYMBOL TBL 10 T=MP 

FUNC NAME IN SYHOOL TABLE 

3R TO PUT NA H E 

SYMBOL Tbu ADDP TO STRING 

MOVfc STMNT POINTER 

LEFT PAHENTHESIS OPERATOR 

NEXT STMNT WORD 

LEFT PAHENTHESIS CONSTANT 

3R IF NUT LEFT PARENTHESIS 
iIMENSIQNfcD NA ,J, E, mRI t H STMN 

SYMBOL I ABLE ID WORD 

DIMENSION 9 IT MASK 
3R IF DIMENSIONED NAME 
STMNT IU WORD 
RIGHT JUSTIFY STMNT TYPE 
9R TO CHK CLOSURE REQUIRED 
ASF PgSilBLE SWITCH 
BR ASF NOT POSSIOLE 
ASF STMNT SWITCH 
BR IF A5F STMNT SW ON 
SET ASF SWITCH OM 
SET PHASING SWITCH ON 
BR TO CHK CLOSURE REQUIRED 
, AMD WQRft AREA 
MAKE ADURESS EVEN 
FIRST HALF OF NAME 
SECOND HALF OF NAME 
LOW ALPHA LIMIT CONSTANT 
HIGH ALHHA UMIT CONSTANT 
SYMBOL I ABLE ID WD TEMP 
LEFT PAHENTHESIS CONSTANT 
SEMICOLON CONSTANT 
RIGHT PARENTHESIS CONSTANT 
MAKE ADURESS EVEN 
2 WORD IFMPQHARY FOR 
•CONSTANT TO BE CONVERTED 
CUMULATIVE S'JM Or CONSTANT 
DECIMAL NJNE CONSTANT 
DECIMAL TEN CONSTANT 
INDEX REGISTER 3 TEMPORARY 
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57 3 
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57 5 
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-70 
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53 7 
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SO "20 'C 
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* 
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COOT 
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BSC 
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DIMfcNSIU 
STMNT NU 
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DIMfcNSIU 
DIMfcNSIU 
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— fc. 
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; 1 1 N 
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i.'DRDl 
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N BIT MASK 

. REFERENCED INDR 

PARENTHESIS CO\| 
NIC PARAMETER INDR 
INDICATOR 

"J LEVEL 1 OPERATOR 
N LE V EL 2 OPERATOR 
N LEVEL 3 OPERATOR 
RAOTER constant 
ZEROES CONSTANT 
STANT 

FT PARENTHESIS 
ABLE ID WORD 
N BIT MASK 
STIFY 



1, 2, OK ,5 DIMENSION INDR 

SPECIAL LEFT PARENTHESIS 

STOKE TU STMNT STRING 

MOVfc STMNT POINTER 

OPEKATOK 

NEXT STMNT WORD 

SEMICULUN CONST AMT 

BR JF StHjCOLON OPERATOR 

RIGHT PARENTHESIS CONSTANT 

BR IF RIGHT PARENTHESIS 

BR TO MUVE POINTER 



SET UP fcRKOR NUMBER 26 
BR TO RfcPLACE STMNT IN 
VALID CONSTANT 
CLEAR AUG AND EXTENSION 
CLtAR NAME TEMPORARY 
FIRST HALF 0^ CONSTANT 
STOKE AND CL^AR 2ND HAL 
SECOND HALF OF CONSTANT 



-RR 



3R TO CUNVERT IF NOT NE3 
SET TW0-4QRD NAME SNITCH 
SHIFT CUE SIGN BIT 
SECOND HALF OF CONSTANT 
NEXT STMNT WORD 
BR* IE NfcG TO SET haIIE ERRO 
;ONSUNT "lO RJNAPY 

RESfcT OVERFLOW AND CARRY 

EIi^ST HALF OF CONSTAN T 

SHIH TU CHK FOR NUMERIC 

BR IF CARKY 

8R TO StT ERROH 24 

BR SET SYMBOL TBL ID INDRS 

BR N.QT OiyiT TT SET ERRTjR 

SHIFT OFF N0 fJ -DI3IT HIT 

RIGHT JUSTIFY 4-RIT DIGIT 

TEMPORARY 

DECIMAL 'MINE LIMIT CONSTAN 

BR {E GKEATER THAN NINE 

PREVIOUS CONSTANT VALUE 

MPY BY 1 
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LARGE 

mulator 



600 
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WI T H ERRO 
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UNITS digjt 

br if ovfhuo'' 1 to se t error 
temporary cumulative su^ 
two*wqru qon j p convert 
nex[ diuit to high 6 bi r s 
restorfTtu temp 
br to convert next digit 

INTtGfcR CONSTANT IMDR 3 ITS 

SYMBOL I 31 IO WD TEMPORARY 

CHK SYMbOL T 3L OO'ERLAP 3W 

RR HUT NAME IN SYMBOL T ^L 

SYMBOL IBL ADDP ON STRMG 

3R TO MUVfc STM f ' T Po!N T ER 
<OR NO 2* 

INDbX RfcG 3s 24 

SE T UP fcRROR 24 

BR KEPLACfe STMMT 

VALID STATEMENT 

CLEAR ACCUMULATOR 

ZERO SECOND WD OF 

NEXT STMMT WORD 

BR REPLACE S T MMT WI T H ERRO 

FIRS T Half f E t MNT NUM3ER 

NEXT STMNT WORD 

3R TO CHK FOR DUPLICATE MO 

SMUT DM* sign o;t 

SECOND HALF OF STMN|T NIHBE 

SET TWO-WQRD SWITCH ON 

NEXT STm?!T WORD 

3R TO SfcT ERROR 
' LtAniMU HEROES 

FIRST HALF Of NU/ 

extkac t 'fjrst nniT 

REMOVE NON-DIGIT BI T S 
BR NO LtAUlNG ZERO 
TWO^WURU NUMBER "EMPORARY 
SHUT OhF LEAD I MO ZfRO 

replace'sjgn bi t 
restore number 

OR TO TtST F3R LEADING ZER 

secumu half of S'mn t nu ire 
right justif y 

REPLACE SIGN Bl T 
RESTORE TO TEMPORARY 
iJPLICATE 30, IN SYMBOL UBL 
START Oh STRING ADDRESS 
RR TO INITIALIZE LOOP 
FIRST HALF SYMBOL TBL E\|TR 
FIRST HALF STMMT NUMBER 
BR MOT hOUND 

2ND MALI- SYMBOL TABLE E'JTR 
2ND HALt iTM N| T NUMBER 
BR IF STmN t '-IUMBER FOUND 

deck s^SpuL table address 

STORE IN TEMPORARY 
CURRENT Sfe ARCH ADDRESS 
STakT Oh N0N*STMNT mumpers 
BR KEPLACt STMMT WjTH ERRO 
RR TO CHFCK NEXT EN T RY 
STMMT IU WORD TEMP 
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